home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXBARCOD.PRG < prev    next >
Text File  |  1991-07-22  |  668b  |  26 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXBARCOD.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12.  
  13. _string = "TEXAS ASSOCIATED SOFTWARE"
  14. txorient("L")
  15. tx3of9bc(10, 10, _string, 10)
  16. txcolprint(21, INT(LEN(_string) / 4) + 10, .T., _string)
  17.  
  18. txorient("P")
  19. tx3of9bc(10, 10, _string, 10)
  20. txcolprint(21, INT(LEN(_string) / 4) + 10, .T., _string)
  21.  
  22. txclear()
  23. RETURN
  24.  
  25. *: EOF: TXBARCOD.PRG
  26.